<script>on returnInFieldsend MouseUp to bg btn "Find"end returnInFieldon enterInFieldsend MouseUp to bg btn "Find"end enterInFieldon closefieldglobal gFindString2put me into gFindString2end closefield</script>
</part>
<part>
<id>44</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>255</left>
<top>181</top>
<right>436</right>
<bottom>197</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>hitz</name>
<script></script>
</part>
<part>
<id>55</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>193</left>
<top>159</top>
<right>242</right>
<bottom>180</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Clear</name>
<script>on mouseUpglobal gCardTitles2,gFindString2,gInsertionPoint2put getInsertionPoint() into gInsertionPoint2set cursor to 4set hilite of me to truelock screenput "" into bg fld "toFind"put "" into bg fld "Found Files"put "" into gCardTitles2put "" into gFindString2put "" into fld "hitz"select text of fld "toFind"set textFont of bg btn "Find" to "Chicago Disabled"unlock screenset hilite of me to falseselect before char gInsertionPoint2 of fld "toFind"end mouseUp</script>
</part>
<part>
<id>59</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>4</left>
<top>103</top>
<right>187</right>
<bottom>289</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>keyList</name>
<script>on mouseDownglobal QueryChunkput GetChunk() into QueryChunkget doubleClick()set textFont of bg btn "Add >>" to "Chicago"selectLine word 2 of the clickLine,name of meif it thensend mouseUp to bg btn "Add >>"end ifend mouseDown</script>
</part>
<part>
<id>61</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>193</left>
<top>113</top>
<right>242</right>
<bottom>134</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago Disabled</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Add >></name>
<script>on mouseUpglobal QueryChunkif the TextFont of me = "Chicago Disabled" then exit mouseUplock screenput the selectedText into theLineif theLine = "" then exit mouseUpspinCursorget replaceChunk(theLine)set textFont of bg btn "Find" to "Chicago"unlock screenend mouseUp</script>
</part>
<part>
<id>62</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>193</left>
<top>193</top>
<right>242</right>
<bottom>214</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago Disabled</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Find</name>
<script>on mouseUpglobal gLitCds,gCardTitles2,gFindString2,UserNameif the TextFont of me = "Chicago Disabled" then exit mouseUpput the ticks into startput fld "toFind" into gFindString2if gFindString2 = "" thenanswer "Please specify a search string."select text of fld "toFind"exit mouseUpend ifset cursor to busyput "" into gCardTitles2put "" into fld "found files"put "" into fld "hitz"set scroll of fld "found files" to 0put "AND" into searchListput filterSearch((gFindString2)) into theStringrepeat with i = 1 to number of words in theStringput word i of theString into thisWordif " " & thisWord & " " is in " AND NOT OR " thenif last word of searchList is not thisWord thenput thisWord after searchListend ifelseget last word of searchListif " " & it & " " is not in " AND NOT OR " then put "AND" after searchListput " " & thisWord & return after searchListend ifend repeatput hitsForTerm(searchList,theRect) into hitListif hitList = "" thenanswer "No matches were found."exit mouseUpend ifput TitleList(hitList,gLitCds) into gCardTitles2put number of lines in gCardTitles2 into hitCountlock screenif hitCount = 1 thenput "1 item found. Click to view..." into fld "hitz"else if hitCount = 0 then put "0 items found" into fld "Hitz"else put hitCount && "items found. Click to view..." into fld "hitz"Sort gCardTitles2put gCardTitles2 into fld "found files"if UserName is in "David Goldman,Peter Meyer" then put (ticks() - start)/60unlock screen with wipe downend mouseUpfunction hitsForTerm searchList,theRectput "" into hitListput "" into booleanListrepeat with i = 1 to number of lines in searchListput "" into subHitsput word 1 of line i to i of searchList into thisBooleanput word 2 of line i to i of searchList into thisWordput char 1 to 1 of thisWord into theFldif theFld is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ" then put "non-alpha" into theFldput cd fld theFld of cd "index.data" into findInput LookUpHits(thisWord,findIn) into subHitsput thisBoolean && number of items of subHits && thisWord into line i to i of BooleanListput subHits into line i to i of hitListend repeatput line 1 to 1 of hitList into allHitsrepeat with z = 2 to number of lines of hitListput word 1 to 1 of line z to z of booleanList into thisBooleanif thisBoolean = "AND" thenput FilterANDs(last line of allHits,line z to z of hitList) into last line of allHitselse if thisBoolean = "NOT" thenput FilterNOTs(last line of allHits,line z to z of hitList) into last line of allHitselse if thisBoolean = "OR" thenput filterORs(last line of allHits,line z to z of hitList) into last line of allHitsend ifend repeatreturn allHitsend hitsForTermfunction LookUpHits thisWord,findInset cursor to busyput "" into subHitsif last char of thisWord is not "*" thenput offset(return & thisWord & ",",return & findIn) into charOffif charOff > 0 thenput line (number of lines of char 1 to charOff of findIn) of findIn into subHitsdelete item 1 to 1 of subHitsend ifelsedelete last char of thisWordput offset(return & thisWord,return & findIn) into charOffif charOff > 0 thenput number of lines of char 1 to charOff of findIn into theLineput line theLine of findIn into subHitsdelete item 1 to 1 of subHitsdelete line 1 to theLine of findInput length of thisWord into wordLengthrepeat with i = 1 to 4000if i mod 12 = 0 then set cursor to busyif char 1 to wordLength of findIn = thisWord thenput line 1 to 1 of findIn into theseHitsdelete item 1 of theseHitsput "," & theseHits after subHitsdelete line 1 to 1 of findInelse exit repeatend repeatsort items of subHitsput RemoveDupItems(subHits) into subHitsend ifend ifreturn subHitsend LookUpHitsfunction filterSearch wrepeat with z = 1 to length of wif char z of w is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890*" then put " " into char z of wend repeatreturn wend filterSearch</script>
